BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Si-Sr/Software Licensing.cpt/Software Licensing Issues 0.96/background_2571.txt

Text File | 1989-04-08 | 53KB | 2,418 lines

-- background: 2571 from stack: in.96
-- bmap block id: 3177
-- flags: 4000
-- background id: 0
-- name: bg id 2571
----- HyperTalk script -----
on closecard
  visual dissolve
  send closecard to bg btn "session log"
  pass closecard
end closecard


on opencard
  lock screen
  repeat with x = 1 to 12
    set the hilite of bg btn ("exp"&x) to false
    set the hilite of bg btn ("t"&x) to false
  end repeat
  repeat with x = 1 to 6
    set the hilite of bg btn ("q"&x) to false
  end repeat
  set the hilite of bg btn yes to false
  set the hilite of bg btn no to false
  put "" into bg fld f7text
  set hilite of bg btn "Cross Reference" to false
  put "" into bg fld exp13
  repeat with x = 1 to the number of cd btns

    set the hilite of  cd btn x to false

  end repeat
  if the short name of this card is "glossary"
  then set the hilite of cd btn "return" to true
  unlock screen
  send opencard to bg button "Session Log"
  if the id of this card = "card id 6877"
  then send triggerhelp to this card
  pass opencard
end opencard






-- part 1 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=0 top=14 right=61 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: title


-- part 2 (field)
-- low flags: 01
-- high flags: 4004
-- rect: left=127 top=84 right=243 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: text


-- part 3 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=385 top=70 right=157 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: explanation
----- HyperTalk script -----
on mousedown
  set the locktext of me to false
  wait 1 second
end mousedown
on mouseup

  set the locktext of me to true
end mouseup


-- part 6 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=0 top=171 right=303 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: f1text


-- part 7 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=374 top=245 right=259 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: recom1


-- part 20 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=396 top=232 right=245 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  put the selection into holder1
  doMenu "new card"

  put holder1 into fld title
  put the id of this cd into holder
  go back
  doMenu "New button"
  set the script of btn "New button" to "On Mouseup"&return&"go "&holder&return&"end mouseup"
  set the showname of btn "New button" to false
  set the style of btn "New button" to transparent
  set the autohilite of btn "new button" to true
  set the name of btn "New button" to ""
end mouseUp



-- part 21 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=0 top=171 right=310 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: f2text


-- part 22 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=0 top=171 right=308 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: f3text


-- part 23 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=0 top=171 right=307 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: f4text


-- part 24 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=0 top=171 right=308 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: f5text


-- part 25 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=0 top=171 right=308 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: f6text


-- part 28 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=374 top=258 right=272 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: recom2


-- part 29 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=374 top=271 right=285 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: recom3


-- part 30 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=374 top=284 right=298 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: recom4


-- part 31 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=374 top=298 right=312 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: recom5


-- part 32 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=374 top=311 right=325 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: recom6


-- part 35 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=293 top=246 right=265 bottom=344
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Recom
----- HyperTalk script -----
on mouseup

  if hilite of bg btn "yes" is true
  then
  repeat with y = 1 to the number of items of fld ("r"&field sel)

    set the hilite of bg btn ("t"& item y of fld ("r"&field sel)) to true

  end repeat
else
  repeat with y = 1 to the number of items of fld ("r"&field sel)

    set the hilite of bg btn ("t"& item y of fld  ("r"&field sel)) to false

  end repeat
end if
-- else set the hilite of btn t1 to false
end mouseup



-- part 37 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=0 top=84 right=98 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: q1


-- part 38 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=0 top=97 right=111 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: q2


-- part 39 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=0 top=110 right=124 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: q3


-- part 40 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=0 top=123 right=137 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: q4


-- part 41 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=0 top=136 right=150 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: q5


-- part 42 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=0 top=149 right=163 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: q6


-- part 45 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=84 right=99 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: q1
----- HyperTalk script -----
on mouseUp

  --repeat with x = 1 to 6
  --hide fld ("f"&x&"text")
  --end repeat
  repeat with x = 1 to 6
    set the hilite of bg btn ("q"&x) to false
  end repeat
  set the hilite of me to true
  repeat with x = 1 to 12
    set hilite of bg btn ("t"&x) to false
  end repeat
  set hilite of bg btn "yes" to false
  set hilite of bg btn "no" to false
  --show fld f1text
  put fld f1text into fld f7text
  set the scroll of fld f7text to 0
  show fld f7text

  put 1 into fld sel

end mouseUp



-- part 46 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=99 right=113 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: q2
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 6
    hide fld ("f"&x&"text")
  end repeat
  --show fld f2text
  set the scroll of fld f2text to 0
  repeat with x = 1 to 6
    set the hilite of bg btn ("q"&x) to false
  end repeat
  set the hilite of me to true
  repeat with x = 1 to 12
    set hilite of bg btn ("t"&x) to false
  end repeat
  set hilite of bg btn "yes" to false
  set hilite of bg btn "no" to false
  put fld f2text into fld f7text
  set scroll of fld f7text to 0
  show fld f7text
  --set the script of bg btn recom to fld recom2
  --send mouseup to bg btn recom
  put 2 into fld sel
end mouseUp



-- part 47 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=112 right=127 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: q3
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 6
    set the hilite of bg btn ("q"&x) to false
  end repeat
  set the hilite of me to true
  repeat with x = 1 to 12
    set hilite of bg btn ("t"&x) to false
  end repeat
  set hilite of bg btn "yes" to false
  set hilite of bg btn "no" to false
  --show fld f3text
  put fld f3text into fld f7text
  set the scroll of fld f7text to 0
  show fld f7text
  --set the script of bg btn recom to fld recom3
  --send mouseup to bg btn recom
  put 3 into fld sel
end mouseUp



-- part 48 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=125 right=138 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: q4
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 6
    set the hilite of bg btn ("q"&x) to false
  end repeat
  set the hilite of me to true
  repeat with x = 1 to 12
    set hilite of bg btn ("t"&x) to false
  end repeat
  set hilite of bg btn "yes" to false
  set hilite of bg btn "no" to false
  --show fld f4text
  put fld f4text into fld f7text
  set the scroll of fld f7text to 0
  show fld f7text
  --set the script of bg btn recom to fld recom4
  --send mouseup to bg btn recom
  put 4 into fld sel
end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=137 right=152 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: q5
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 6
    set the hilite of bg btn ("q"&x) to false
  end repeat
  set the hilite of me to true
  repeat with x = 1 to 12
    set hilite of bg btn ("t"&x) to false
  end repeat
  set hilite of bg btn "yes" to false
  set hilite of bg btn "no" to false
  --show fld f5text
  put fld f5text into fld f7text
  set the scroll of fld f7text to 0
  show fld f7text
  --set the script of bg btn recom to fld recom5
  --send mouseup to bg btn recom
  put 5 into fld sel
end mouseUp



-- part 50 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=150 right=164 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: q6
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 6
    set the hilite of bg btn ("q"&x) to false
  end repeat
  set the hilite of me to true
  repeat with x = 1 to 12
    set hilite of bg btn ("t"&x) to false
  end repeat
  set hilite of bg btn "yes" to false
  set hilite of bg btn "no" to false
  --show fld f6text
  put fld f6text into fld f7text
  set the scroll of fld f7text to 0
  show fld f7text
  --set the script of bg btn recom to fld recom6
  --send mouseup to bg btn recom
  put 6 into fld sel
end mouseUp



-- part 55 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=415 top=246 right=260 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: r1


-- part 56 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=415 top=259 right=273 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: r2


-- part 57 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=415 top=272 right=286 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: r3


-- part 58 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=415 top=286 right=300 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: r4


-- part 59 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=415 top=299 right=313 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: r5


-- part 60 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=415 top=312 right=326 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: r6


-- part 63 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=370 top=246 right=265 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear
----- HyperTalk script -----
on mouseup
  repeat with x = 1 to 12
    set the hilite of bg btn ("t"&x) to false
  end repeat

end mouseup



-- part 64 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=84 right=98 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t1
----- HyperTalk script -----
on mouseUp
  go cd id 3490
end mouseUp




-- part 65 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=112 top=98 right=112 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t2


-- part 66 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=111 right=125 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t3


-- part 67 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=124 right=138 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t4


-- part 68 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=137 right=151 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t5


-- part 69 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=163 right=177 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t7


-- part 70 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=150 right=164 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t6


-- part 71 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=176 right=190 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t8


-- part 72 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=189 right=203 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t9


-- part 73 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=202 right=216 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t10


-- part 74 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=215 right=229 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t11


-- part 75 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=228 right=242 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t12


-- part 76 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=497 top=232 right=245 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sel


-- part 78 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=426 top=14 right=60 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 21449 / 21449
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Top
----- HyperTalk script -----
on mouseUp
  go cd id 2949
end mouseUp




-- part 110 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=431 top=247 right=265 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: No Recom
----- HyperTalk script -----
on mouseup

  if hilite of bg btn "no" is true
  then
  repeat with y = 1 to the number of items of fld ("recom"&field sel)

    set hilite of bg btn ("t"& item y of fld ("recom"&field sel)) to true

  end repeat
else
  repeat with y = 1 to the number of items of fld ("recom"&field sel)

    set the hilite of bg btn ("t"& item y of fld  ("recom"&field sel)) to false

  end repeat
end if
-- else set the hilite of btn t1 to false
end mouseup

end mouseUp



-- part 79 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=471 top=14 right=60 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back
----- HyperTalk script -----
on mouseUp
  go back
end mouseUp




-- part 81 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=386 top=72 right=213 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Exp1


-- part 82 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=385 top=70 right=206 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Exp2


-- part 83 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=385 top=70 right=209 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Exp3


-- part 84 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=379 top=62 right=223 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Exp4


-- part 85 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=381 top=70 right=214 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Exp5


-- part 86 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=386 top=70 right=215 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Exp6


-- part 87 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=386 top=71 right=210 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Exp7


-- part 88 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=386 top=70 right=213 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Exp8


-- part 89 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=386 top=71 right=208 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Exp9


-- part 90 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=383 top=71 right=208 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Exp10


-- part 91 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=387 top=70 right=208 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Exp11


-- part 92 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=384 top=71 right=214 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Exp12


-- part 93 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=367 top=83 right=98 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: exp1
----- HyperTalk script -----
on mouseUp

  repeat with x = 1 to 12
    set the hilite of bg btn ("Exp"&x) to false
  end repeat
  Set the hilite of me to true

  --repeat with x = 1 to 12
  --hide fld ("Exp"&x)
  --end repeat
  put fld Exp1 into fld exp13
  set the scroll of fld Exp13 to 0

  repeat with x = 1 to the number of  btns

    set the hilite of  btn x to false
  end repeat

  repeat with x = 1 to the number of btns
    if short name of btn x is "subtitle1" then
      set the hilite of btn subtitle1 to true
    end if
  end repeat
  send signal to bg btn "cross reference"
end mouseUp



-- part 94 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=367 top=96 right=110 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: exp2
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 12
    set the hilite of bg btn ("Exp"&x) to false
  end repeat
  Set the hilite of me to true

  put fld exp2 into fld exp13
  set scroll of fld exp13 to 0

  repeat with x = 1 to the number of  btns
    set the hilite of  btn x to false
  end repeat
  repeat with x = 1 to the number of btns
    if short name of btn x is "subtitle2" then
      set the hilite of btn subtitle2 to true
    end if
  end repeat
  send signal to bg btn "cross reference"
end mouseUp



-- part 95 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=367 top=110 right=123 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: exp3
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 12
    set the hilite of bg btn ("Exp"&x) to false
  end repeat
  Set the hilite of me to true

  put fld Exp3 into fld exp13
  set the scroll of fld Exp13 to 0

  repeat with x = 1 to the number of   btns
    set the hilite of  btn x to false
  end repeat
  repeat with x = 1 to the number of   btns
    if short name of btn x is "subtitle3" then
      set the hilite of btn subtitle3 to true
    end if
  end repeat
  send signal to bg btn "cross reference"
end mouseUp



-- part 96 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=367 top=123 right=136 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: exp4
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 12
    set the hilite of bg btn ("Exp"&x) to false
  end repeat
  Set the hilite of me to true

  put fld Exp4 into fld exp13
  set the scroll of fld Exp13 to 0
  repeat with x = 1 to the number of  btns
    set the hilite of  btn x to false
  end repeat
  repeat with x = 1 to the number of btns
    if the short name of btn x is "subtitle4" then
      set the hilite of btn subtitle4 to true
    end if
  end repeat
  send signal to bg btn "cross reference"
end mouseUp



-- part 97 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=367 top=135 right=148 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: exp5
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 12
    set the hilite of bg btn ("Exp"&x) to false
  end repeat
  Set the hilite of me to true

  put fld Exp5 into fld exp13
  set the scroll of fld Exp13 to 0
  repeat with x = 1 to the number of  btns
    set the hilite of  btn x to false
  end repeat

  repeat with x = 1 to the number of btns
    if the short name of btn x is "subtitle5" then
      set the hilite of btn subtitle5 to true
    end if
  end repeat
  send signal to bg btn "cross reference"
end mouseUp



-- part 98 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=367 top=148 right=162 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: exp6
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 12
    set the hilite of bg btn ("Exp"&x) to false
  end repeat
  Set the hilite of me to true

  put fld Exp6 into fld exp13
  set the scroll of fld Exp13 to 0

  repeat with x = 1 to the number of  btns
    set the hilite of  btn x to false
  end repeat

  repeat with x = 1 to the number of btns
    if the short name of btn x is "subtitle6" then
      set the hilite of btn subtitle6 to true
    end if
  end repeat
  send signal to bg btn "cross reference"
end mouseUp



-- part 99 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=367 top=161 right=175 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: exp7
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 12
    set the hilite of bg btn ("Exp"&x) to false
  end repeat
  Set the hilite of me to true

  put fld Exp7 into fld exp13
  set the scroll of fld Exp13 to 0

  repeat with x = 1 to the number of  btns
    set the hilite of  btn x to false
  end repeat

  repeat with x = 1 to the number of btns
    if short name of btn x is "subtitle7" then
      set the hilite of btn subtitle7 to true
    end if
  end repeat
  send signal to bg btn "cross reference"
end mouseUp



-- part 100 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=367 top=174 right=188 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: exp8
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 12
    set the hilite of bg btn ("Exp"&x) to false
  end repeat
  Set the hilite of me to true

  put fld Exp8 into fld exp13
  set the scroll of fld Exp13 to 0

  repeat with x = 1 to the number of  btns
    set the hilite of  btn x to false
  end repeat

  repeat with x = 1 to the number of btns
    if the short name of btn x is "subtitle8" then
      set the hilite of btn subtitle8 to true
    end if
  end repeat
  send signal to bg btn "cross reference"
end mouseUp



-- part 101 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=367 top=186 right=200 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: exp9
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 12
    set the hilite of bg btn ("Exp"&x) to false
  end repeat
  Set the hilite of me to true

  put fld Exp9 into fld exp13
  set the scroll of fld Exp13 to 0

  repeat with x = 1 to the number of  btns
    set the hilite of  btn x to false
  end repeat

  repeat with x = 1 to the number of btns
    if the short name of btn x is"subtitle9" then
      set the hilite of btn subtitle9 to true
    end if
  end repeat
  send signal to bg btn "cross reference"
end mouseUp



-- part 102 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=367 top=200 right=213 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: exp10
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 12
    set the hilite of bg btn ("Exp"&x) to false
  end repeat
  Set the hilite of me to true

  put fld Exp10 into fld exp13
  set the scroll of fld Exp13 to 0

  repeat with x = 1 to the number of  btns
    set the hilite of  btn x to false
  end repeat

  repeat with x = 1 to the number of btns
    if the short name of btn x is "subtitle10" then
      set the hilite of btn subtitle10 to true
    end if
  end repeat
  send signal to bg btn "cross reference"
end mouseUp



-- part 103 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=367 top=212 right=226 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: exp11
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 12
    set the hilite of bg btn ("Exp"&x) to false
  end repeat
  Set the hilite of me to true

  put fld Exp11 into fld exp13
  set the scroll of fld Exp13 to 0

  repeat with x = 1 to the number of  btns
    set hilite of  btn x to false
  end repeat

  repeat with x = 1 to the number of btns
    if the short name of btn x is "subtitle11" then
      set the hilite of btn subtitle11 to true
    end if
  end repeat
  send signal to bg btn "cross reference"
end mouseUp



-- part 104 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=367 top=227 right=240 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: exp12
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 12
    set the hilite of bg btn ("Exp"&x) to false
  end repeat
  Set the hilite of me to true

  put fld Exp12 into fld exp13
  set the scroll of fld Exp13 to 0

  repeat with x = 1 to the number of  btns
    set hilite of  btn x to false
  end repeat

  repeat with x = 1 to the number of btns
    if the short name of btn x is "subtitle12" then
      set the hilite of btn subtitle12 to true
    end if
  end repeat
  send signal to bg btn "cross reference"
end mouseUp



-- part 106 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=381 top=14 right=60 bottom=422
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  go cd id 6877
end mouseUp




-- part 108 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=0 top=316 right=342 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: No
----- HyperTalk script -----
on mousedown
  set hilite of bg btn "yes" to false

  repeat with x = 1 to 12
    set the hilite of bg btn ("t"&x) to false
  end repeat

end mousedown

on mouseup
  set hilite of me to true
  send mouseup to bg btn "no recom"
  repeat with x = 1 to 6
    if hilite of bg btn ("q"&x) is true then
      if fld ("n"&x) is not empty then
        put bg fld ("n"&x) into bg fld f7text
        set scroll of bg fld f7text to 0
      end if
      put "You were asked:  " & fld ("f"&x&"text") & return after cd fld "sessionlog" of cd "sessionlog"
    end if
  end repeat
  put "You answered 'No', resulting in the following recommended subjects (if any):" & return after cd fld "sessionlog" of cd "sessionlog"
  repeat with x = 1 to 12
    if the hilite of bg btn ("t"&x) is true then
      put " --  " & line x of fld text of this cd & return after cd fld "sessionlog" of cd "sessionlog"
    end if
  end repeat
  put return after cd fld "sessionlog" of cd "sessionlog"
end mouseup





-- part 109 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=60 top=316 right=342 bottom=110
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yes
----- HyperTalk script -----
on mousedown

  set hilite of bg btn "no" to false

  repeat with x = 1 to 12
    set hilite of bg btn ("t"&x) to false
  end repeat
end mousedown

on mouseup
  set hilite of me to true
  send mouseup to bg btn recom
  repeat with x = 1 to 6
    if hilite of bg btn ("q"&x) is true then
      if fld ("y"&x) is not empty then
        put bg fld ("y"&x) into bg fld f7text
        set scroll of bg fld f7text to 0
      end if
      put "You were asked:  " & fld ("f"&x&"text") & return after cd fld "sessionlog" of cd "sessionlog"
    end if
  end repeat
  put "You answered 'Yes', resulting in the following recommended subjects (if any):" & return after cd fld "sessionlog" of cd "sessionlog"
  repeat with x = 1 to 12
    if the hilite of bg btn ("t"&x) is true then
      put " --  " & line x of fld text of this cd & return after cd fld "sessionlog" of cd "sessionlog"
    end if
  end repeat
  put return after cd fld "sessionlog" of cd "sessionlog"
end mouseup




-- part 112 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=144 top=322 right=342 bottom=231
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  Answer "Print which field?" with "Issues" or "Discussion" or "Cancel"
  if it is "Issues"
  then Printfield  "bg fld text"
  if it is "Discussion"
  then Printfield  "bg fld Exp13"


end mouseUp



-- part 113 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=13 top=66 right=78 bottom=34
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: now you don't
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 6
    hide fld ("recom"&x)
  end repeat
  repeat with x = 1 to 6
    hide fld ("r"&x)
  end repeat
  hide bg btn "edit"
  hide bg btn "end"
  hide bg btn "New cd"
end mouseUp



-- part 130 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=240 top=249 right=269 bottom=276
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 6
    hide fld ("recom"&x)
  end repeat

  repeat with x = 1 to 6
    hide fld ("r"&x)
  end repeat
  hide bg btn "edit disc."
  hide bg btn "end d"
  hide bg btn "edit q"
  hide bg btn "end q"
  hide bg btn "edit yes"
  hide bg btn "end y"
  hide bg btn "edit no"
  hide bg btn "end n"
  hide bg btn "new card"
  Set the locktext of bg fld "title" to true
  Set the locktext of bg fld "text" to true
  repeat with x = 1 to 6
    Set the locktext of bg fld ("f"&x&"text") to true
  end repeat
  repeat with x = 1 to 6
    Set the locktext of bg fld ("q"&x) to true
  end repeat
  hide bg btn "RECOM"
  hide bg btn "clear"
  hide bg btn "no recom"
  hide bg fld "explanation"
  show bg fld exp13
  show bg btn "discussion"
  --show bg btn "page up"
  --show bg btn "page down"
  --set the loc of bg btn yes to (312),(163)
  --set the loc of bg btn no to (312),(199)
  --set the loc of bg btn "q1" to (346),(147)
  --set the loc of bg btn "q2" to (346),(160)
  --set the loc of bg btn "q3" to (346),(173)
  --set the loc of bg btn "q4" to (346),(186)
  --set the loc of bg btn "q5" to (346),(199)
  --set the loc of bg btn "q6" to (346),(212)
  --set the loc of bg btn "edit" to (489),(163)
  --set the loc of me to (489),(199)
  hide bg btn "Construction MOde"
end mouseUp



-- part 116 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=147 top=66 right=78 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Now you see 'em
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 6
    show fld ("recom"&x)
  end repeat

  repeat with x = 1 to 6
    show fld ("r"&x)
  end repeat
  show bg btn "edit"
  show bg btn "end"
  show bg btn "new cd"
end mouseUp



-- part 129 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=204 top=249 right=269 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit
----- HyperTalk script -----
on mouseUp
  show bg btn "Construction Mode"
  --set the loc of me to (382),(132)
  --set the loc of bg btn "done" to (440),(132)
  --set the loc of bg btn "q1" to (354),(147)
  --set the loc of bg btn "q2" to (354),(160)
  --set the loc of bg btn "q3" to (354),(173)
  --set the loc of bg btn "q4" to (354),(186)
  --set the loc of bg btn "q5" to (354),(199)
  --set the loc of bg btn "q6" to (354),(212)
  --set the loc of bg btn "yes" to (295),(163)
  --set the loc of bg btn "no" to (295),(199)
  repeat with x = 1 to 6
    show fld ("recom"&x)
  end repeat

  repeat with x = 1 to 6
    show fld ("r"&x)
  end repeat
  show bg btn "edit disc."
  show bg btn "end d"
  show bg btn "edit q"
  show bg btn "end q"
  show bg btn "edit yes"
  show bg btn "end y"
  show bg btn "edit no"
  show bg btn "end n"
  show bg btn "new card"
  Set the locktext of bg fld "title" to false
  Set the locktext of bg fld "text" to false
  repeat with x = 1 to 6
    Set the locktext of bg fld ("f"&x&"text") to false
  end repeat
  repeat with x = 1 to 6
    Set the locktext of bg fld ("q"&x) to false
  end repeat
  repeat with x = 1 to 13
    hide fld ("exp"&x)
  end repeat
  --hide bg btn "Page up"
  --hide bg btn "page Down"
  hide bg btn "discussion"
  show bg fld "explanation"
end mouseUp



-- part 120 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=55 top=66 right=78 bottom=77
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: replace discussion fld
----- HyperTalk script -----
on mouseUp
  hide bg btn "RECOM"
  hide bg btn "clear"
  hide bg btn "no recom"
  hide bg fld "explanation"
  show bg fld exp13
  show bg btn "discussion"
end mouseUp



-- part 121 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=104 top=66 right=78 bottom=125
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: make comments
----- HyperTalk script -----
on mouseUp
  repeat with x = 1 to 13
    hide fld ("exp"&x)
  end repeat
  hide bg btn "discussion"
  show bg btn "clear"
  show bg btn "recom"
  show bg btn "no recom"
  show bg fld "explanation"
end mouseUp



-- part 119 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=381 top=61 right=77 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Discussion


-- part 123 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=387 top=216 right=230 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit Disc.
----- HyperTalk script -----
on mouseUp
  global gchoice
  ask "Which 'Discussion' # would you like to edit?"
  put it into gchoice
  if gchoice is "" then
    exit mouseup
  else hide bg btn "discussion"
  hide fld exp13
  show fld ("exp"& gchoice)
  hide bg btn "Edit Q"
  hide bg btn "Edit Yes"
  hide bg btn "Edit No"
  hide bg btn "End Q"
  hide bg btn "End Y"
  hide bg btn "End N"

end mouseUp



-- part 124 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=466 top=217 right=231 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: End D
----- HyperTalk script -----
on mouseUp
  global gchoice
  repeat with x = 1 to 12
    hide fld ("exp"&x)
  end repeat

  show fld exp13
  show bg btn "discussion"

  show bg btn "Edit Q"
  show bg btn "Edit Yes"
  show bg btn "Edit No"
  show bg btn "End Q"
  show bg btn "End Y"
  show bg btn "End N"
  if gchoice is "" then
    exit mouseup
  else send mouseup to bg btn ("exp"&gchoice)
end mouseUp



-- part 126 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=382 top=328 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cross Reference
----- HyperTalk script -----
on mouseUp
  put the number of lines of fld exp13 into holder2
  If   line holder2 -1  of fld exp13 contains "See also"
  then
  answer  "Go to Cross Reference?" with "No" or "Yes"
  if it is "yes"
  then
  put the number  of words of fld exp13 into holder

  go cd ( word holder - 1 of fld exp13)
else
  set the hilite of bg button "Cross Reference" to true
end if
Else
  put "No Cross Reference Available"
  wait one seconds
  hide msg
end if

end mouseUp
on signal
  put the number of  lines of fld exp13 into holder

  if  line holder - 1 of fld exp13 contains "See also"
  then set the hilite of me to true
else set the hilite of me to false
end signal



-- part 135 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=464 top=160 right=174 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: End Q
----- HyperTalk script -----
on mouseUp
  global fchoice
  repeat with x = 1 to 6
    hide fld ("f"&x&"text")
  end repeat

  show fld f7text

  if fchoice is "" then
    exit mouseup
  else send mouseup to bg btn ("q"&fchoice)
end mouseUp



-- part 136 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=386 top=161 right=175 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit Q
----- HyperTalk script -----
on mouseUp
  global fchoice
  ask "Which 'Question' # would you like to edit?"
  put it into fchoice
  repeat with x = 1 to 7
    hide fld ("f"&x&"text")
  end repeat
  if fchoice is "" then
    exit mouseup
  else show fld ("f"&fchoice&"text")
end mouseUp



-- part 137 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=386 top=180 right=194 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit Yes
----- HyperTalk script -----
on mouseUp
  global ychoice
  ask "Which 'Yes Recommendation' # would you like to edit?"
  put it into ychoice
  if ychoice is "" then
    exit mouseup
  else show fld ("y"&ychoice)
end mouseUp



-- part 138 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=387 top=200 right=214 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit No
----- HyperTalk script -----
on mouseUp
  global nchoice
  ask "Which 'No Recommendation' # would you like to edit?"
  put it into nchoice

  if nchoice is "" then
    exit mouseup
  else show fld ("n"&nchoice)
end mouseUp



-- part 139 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=465 top=181 right=195 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: End Y
----- HyperTalk script -----
on mouseUp
  global ychoice
  if ychoice is "" then
    exit mouseup
  else hide bg fld ("y"&ychoice)

  send mouseup to bg btn ("q"&ychoice)
  send mouseup to bg btn yes

end mouseUp



-- part 140 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=466 top=201 right=215 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: End N
----- HyperTalk script -----
on mouseUp
  global nchoice
  if nchoice is "" then
    exit mouseup
  else hide bg fld ("n"&nchoice)

  send mouseup to bg btn ("q"&nchoice)
  send mouseup to bg btn no

end mouseUp



-- part 143 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=0 top=166 right=311 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: y1
----- HyperTalk script -----
on mouseup
  hide me
  hide bg btn why
end mouseup


-- part 144 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=0 top=165 right=310 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: y6
----- HyperTalk script -----
on mouseup
  hide me
  hide bg btn why
end mouseup


-- part 145 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=0 top=165 right=310 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: y3
----- HyperTalk script -----
on mouseup
  hide me
  hide bg btn why
end mouseup


-- part 146 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=0 top=165 right=310 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: y4
----- HyperTalk script -----
on mouseup
  hide me
  hide bg btn why
end mouseup


-- part 147 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=0 top=165 right=310 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: y5
----- HyperTalk script -----
on mouseup
  hide me
  hide bg btn why
end mouseup


-- part 149 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=0 top=165 right=310 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: y2
----- HyperTalk script -----
on mouseup
  hide me
  hide bg btn why
end mouseup


-- part 150 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=0 top=165 right=309 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: n1
----- HyperTalk script -----
on mouseup
  hide me
  hide bg btn why
end mouseup


-- part 151 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=0 top=165 right=310 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: n2
----- HyperTalk script -----
on mouseup
  hide me
  hide bg btn why
end mouseup


-- part 152 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=0 top=165 right=309 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: n3
----- HyperTalk script -----
on mouseup
  hide me
  hide bg btn why
end mouseup


-- part 153 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=0 top=166 right=309 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alig